home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 October / Macformat17.cdr / Shareware City / Developers / GAL ƒ / GAL examples / Built in subroutines / built-in subroutines next >
Text File  |  1994-07-11  |  492b  |  34 lines
  1.     jump:sub    input
  2.     jump:sub    output
  3.     jump:sub    succ
  4.     jump:sub    output
  5.     jump:sub    pred
  6.     jump:sub    output
  7.     jump:sub    ord
  8.     jump:sub    chr
  9.     jump:sub    output
  10.     halt
  11. input
  12.     copy:byte    instatus,Reg0
  13.     jump:equal input
  14.     copy:byte     indata=>reg0
  15.     return
  16. output
  17.     copy:long    reg0,savedata
  18.     copy:byte     outstatus=>reg0
  19.     jump:not_equal output
  20.     copy:long    savedata,Reg0
  21.     copy:byte     reg0,outdata
  22.     return
  23. savedata    variable:long    1
  24. chr
  25.     return
  26. ord
  27.     return 
  28. succ
  29.     add:byte    1=>reg0
  30.     return
  31. pred
  32.     subtract:byte    1=>reg0
  33.     return
  34.     end